﻿Imports BUS
Imports DTO
Imports DAO
Imports DevComponents.DotNetBar

Public Class frmDangNhap
    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub btnDangNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDangNhap.Click
        Dim nv As New NhanVienDTO()
        nv.TenNhanVien = txtTaiKhoan.Text
        nv.MatKhau = txtMatKhau.Text
        nv.PhanQuyen = cmbChucVu.Text
        Dim isLogin As Boolean = NhanVienDAO.KiemTraNhanVien(nv)
        If isLogin = True Then
            Me.Hide()
            Dim f1 As New frmMain()
            f1.ShowDialog()
            Me.Close()
        Else
            MessageBoxEx.Show("Tên tài khoản, hoặc mật khẩu, hoặc chức vụ nhập không chính xát, vui lòng nhập lại")
            txtTaiKhoan.Text = ""
            txtMatKhau.Text = ""
        End If
    End Sub

    Private Sub frmDangNhap_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbChucVu.Items.Add("User")
        cmbChucVu.Items.Add("Admin")
    End Sub
End Class